home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Software Contest 3
/
FM Towns Software Contest 3.iso
/
gear
/
for_cd
/
meeko
/
sento.txt
< prev
next >
Wrap
Text File
|
1994-01-07
|
743b
|
25 lines
CLEAR ,,,10000
DIM CARA%(4500)
A1$=GETS$("systext",1)
A2$=GETS$("systext",2)
A3$=GETS$("systext",3)
CLRF "systext"
VIEW "イメージ1"
LOAD@ "CARACTER.ABC",CARA%
MOUSE 0
MOUSE 1,280,169,0
FLAG=-1
WHILE FLAG
CX=MOUSE(0):CY=MOUSE(1)
PUT@A (CX-57,CY-69)-(CX+57,CY+69),CARA%
IF (CX>267 AND CX<318) THEN IF (CY>236 AND CY<288) THEN PUTS "SYSTEXT","MIKAN",1:FLAG=0
IF (CX>0 AND CX<161) THEN IF (CY>46 AND CY<182) THEN PUTS "SYSTEXT","RYO",1:FLAG=0
IF (CX>501 AND CX<542) THEN IF (CY>48 AND CY<109) THEN PUTS "SYSTEXT","MARIO",1:FLAG=0
IF (CX>529 AND CX<596) THEN IF (CY>386 AND CY<445) THEN PUTS "SYSTEXT","UNZEN",1:FLAG=0
WEND
VIEW END
PUTS "systext",A2$,2
PUTS "systext",A3$,3
EFFECT VERTICAL(OPEN)
GO "ページ2/多色フレーム"